home *** CD-ROM | disk | FTP | other *** search
/ Gigarom 1 / Gigarom Macintosh Archives (Quantum Leap)(CDRM1080320)(1993).iso / FILES / EXT / F-J / FreshStar.cpt / FreshStart 1.6 / Fresh StartDocs1.6 / background_4022.txt < prev    next >
Text File  |  1990-01-03  |  2KB  |  89 lines
  1. -- background: 4022 from stack: in.6
  2. -- bmap block id: 2625
  3. -- flags: 0000
  4. -- background id: 0
  5. -- name: 
  6. ----- HyperTalk script -----
  7. function scrollLineClicked topMargin
  8. return (round((the scroll of the target / the textHeight of the target) +  (((the clickV - top of the target - topMargin) div the textHeight of the target) + 1)))
  9. end scrollLineClicked
  10.  
  11. function lineClicked topMargin
  12. return ((the clickV - top of the target - topMargin) div the textHeight of the target) + 1
  13. end lineClicked
  14.  
  15.  
  16.  
  17.  
  18. -- part 3 (button)
  19. -- low flags: 00
  20. -- high flags: 0000
  21. -- rect: left=15 top=6 right=61 bottom=83
  22. -- title width / last selected line: 0
  23. -- icon id / first selected line: 128 / 128
  24. -- text alignment: 1
  25. -- font id: 0
  26. -- text size: 12
  27. -- style flags: 0
  28. -- line height: 16
  29. -- part name: New Button
  30.  
  31.  
  32. -- part 7 (button)
  33. -- low flags: 00
  34. -- high flags: 8003
  35. -- rect: left=42 top=311 right=333 bottom=142
  36. -- title width / last selected line: 0
  37. -- icon id / first selected line: 0 / 0
  38. -- text alignment: 1
  39. -- font id: 0
  40. -- text size: 12
  41. -- style flags: 0
  42. -- line height: 16
  43. -- part name: Quit
  44. ----- HyperTalk script -----
  45. on mouseUp
  46.   doMenu Quit Hypercard
  47. end mouseUp
  48.  
  49.  
  50.  
  51. -- part 9 (button)
  52. -- low flags: 00
  53. -- high flags: 8003
  54. -- rect: left=375 top=312 right=334 bottom=491
  55. -- title width / last selected line: 0
  56. -- icon id / first selected line: 0 / 0
  57. -- text alignment: 1
  58. -- font id: 0
  59. -- text size: 12
  60. -- style flags: 0
  61. -- line height: 16
  62. -- part name: Option Window
  63. ----- HyperTalk script -----
  64. on mouseUp
  65.   go to card id 11332
  66. end mouseUp
  67.  
  68.  
  69.  
  70.  
  71. -- part 11 (button)
  72. -- low flags: 00
  73. -- high flags: 8003
  74. -- rect: left=213 top=313 right=335 bottom=313
  75. -- title width / last selected line: 0
  76. -- icon id / first selected line: 0 / 0
  77. -- text alignment: 1
  78. -- font id: 0
  79. -- text size: 12
  80. -- style flags: 0
  81. -- line height: 16
  82. -- part name: Main Window
  83. ----- HyperTalk script -----
  84. on mouseUp
  85.   go to card id 3219
  86. end mouseUp
  87.  
  88.  
  89.